home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / ixemul / support / fixdu.s < prev    next >
Text File  |  1999-01-01  |  521b  |  27 lines
  1.     xdef    __ieeefixdu
  2.     xref    ___cmpdf2
  3.     xref    ___subdf3
  4.     xref    ___fixdfsi
  5. __ieeefixdu:
  6.     clr.l   -(a7)
  7.     move.l  #$41e00000,-(a7)
  8.     move.l  16(a7),-(a7)
  9.     move.l  16(a7),-(a7)
  10.     jsr     ___cmpdf2
  11.     add.w   #16,a7
  12.     tst.l   d0
  13.     bge.s   ll
  14.     jmp     ___fixdfsi
  15. ll:
  16.     clr.l   -(a7)
  17.     move.l  #$41e00000,-(a7)
  18.     move.l  16(a7),-(a7)
  19.     move.l  16(a7),-(a7)
  20.     jsr     ___subdf3
  21.     movem.l d0/d1,-(a7)
  22.     jsr     ___fixdfsi
  23.     add.w   #24,a7
  24.     eor.l   #-2147483648,d0
  25.     rts
  26.  
  27.